SGI Developer Toolbox 6.1/SGI Developer Toolbox 6.1 - Disc 4.iso/src/swtools/trubasic/rolldemos/demos/aboutTBI2.tru

Text File | 1994-08-02 | 4KB | 95 lines

external
! more about True BASIC Demo (in 150 lines of code)
sub text_intro3
clear
call lines(8)
set color "magenta"
let r=setfontsize(18)
set text justify "left", "bottom"
plot text, at .1,.87: "Some of True BASIC's features include:"
set color "blue"
let t=strwidth("Some of True BASIC's features include:")
box area .1,.1+t,.84,.85
box area 0,.01,0,1
box area 0,1,.99,1
box area .99,1,0,1
box area 0,1,0,.01
set color "white"
call lines(2)
print "            * resizable arrays"
print "            * multi-line, user-defined functions"
print "            * local and global variables"
print "            * structured error handling"
print "            * built-in 2D graphics transformations"
print "            * matrix inverse, transpose, i/o and graphics"
print "            * unlimited arrays"
print "            * 14-digit floating-point accuracy"
print "            * recursion"
print "            * modules with public and private routines"
print "            * pictures for encapsulating graphical objects"
print "            * a wide range of graphics primitives"
print "            * toolkits for 3D, Scientific, and Statistical graphs"
call lines(2)
print "  True BASIC is a fully-structured programming language with a direct"
print "  interface to the X & GL  Libraries.  Programs are standard ASCII text"
print "  files and may be run from source, compiled, or bound into stand-alone"
print "  executables.  "
print
print "  True BASIC runs on Macs, MS-DOS compatibles, Amigas, and most UNIX"
print "  workstations."
call lines(8)
print "                <click the left mouse button to continue>"
end sub !---------------------------------------------------------------------
sub text_intro4
clear
call lines(10)
set color "magenta"
set text justify "center","bottom"
let r=setfontsize(18)
plot text, at .5,.87: "Rolling Demo For True BASIC"
set color "blue"
let t=strwidth("Rolling Demo For True BASIC")
box area .5-t/2,.5+t/2,.84,.85
box area 0,.01,0,1
box area 0,1,.99,1
box area .99,1,0,1
box area 0,1,0,.01
set color "white"
print
print "  The rolling demo will let you selectively run the various demo "
print "  programs.  These programs are run from the source code so there"
print "  will be a brief pause before the graphics window opens."
print
print "  You can easily produce bound programs from True BASIC which will "
print "  begin to execute immediately.  Copy the demo distribution to your"
print "  hard drive and type ""make"" to produce executables for these demos."
print
print "  Note that for the Silicon Graphics you receive an X Windows and GL"
print "  version of the language.  The RGB mode and Image Processing demos"
print "  will only work with the GL version.  The other programs operate in"
print "  a similar fashion with either version."
print
print "  For each group of demos, a description of the following programs"
print "  and the required user interaction can be found in the About file."
print "  Most of the demos can be stopped with a mouse click or a keystroke."
print
print "  Depending on your window manager, you may be required to position"
print "  the graphics window using your mouse."
print
print "  At any point, you may exit the rolling demo and examine the BASIC"
print "  source code for the demo programs.  Refer to the README files in"
print "  the various directories for more information."
print
print "  To return to the original window, click in the background of the"
print "  current button selection window."
print
call lines(3)
print "                <click the left mouse button to continue>"
end sub
sub lines(n)   ! scroll down n lines
   for j=1 to n
        print
   next j
end sub